(pp-eval-last-sexp): Don't eval here.

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 27134a14583a67d4ae7999d0017277464fa0ffbf..66abfdf2c6d12346c2a59d7701691b4f5603bd9c 100644 (file)
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -158,7 +158,7 @@ Ignores leading comment characters."
     (set-syntax-table stab)
     (if arg
        (insert (pp-to-string (eval exp)))
-      (pp-eval-expression (eval exp)))))
+      (pp-eval-expression exp))))
 
 ;;; Test cases for quote
 ;; (pp-eval-expression ''(quote quote))